library(tidyverse)
library(DeclareDesign)
library(rdss)

sims <- 2000
bootstrap_sims <- 2000

source("code/declarations/declaration_19.4.R")

diagnosis_19.4 <- diagnose_designs(design_high_coordination = design_high_coordination, 
                                   design_low_coordination = design_low_coordination,
                                   sims = sims,
                                   bootstrap_sims = bootstrap_sims)

write_rds(diagnosis_19.4,
          file = "diagnosis_objects/diagnosis_19.4.rds")
